library(plotly)
library(knitr)
library(kableExtra)
library(RCurl)
library(plyr)
source("C:/Users/Rafael Navas/Documents/tala_at_margarita/tools/functions.R")
source("C:/Users/Rafael Navas/INIA/dais - Documentos/02_TALA/01_datos/03_hidrologia/credenciales_ftp.R")
# valores de nivel previos
h = readRDS("C:/Users/Rafael Navas/Documents/tala_at_margarita/post_processing_data/water_level_telemetric.RDS")
h = na.omit(h)
# rango de valores a leer del servidor
t1 = as.Date(max(h$date))
t2 = Sys.Date()
# lectura de valores actuactuales desde el servidor
filenames = getURL(url,userpwd = userpwd, ftp.use.epsv = FALSE,dirlistonly = TRUE)
filenames = unlist(strsplit(filenames, "\r\n"))
fechas = format(seq.Date(t1,t2,by="day"),"%Y%m%d")
filenames = filenames[substr(filenames, 12, 19)%in%fechas]
for(j in 1:length(filenames)){
f = try(getURL(paste(url,filenames[j], sep="/"), userpwd = userpwd))
f = unlist(strsplit(f, "\r\n"))
f = read_misTele2(f)
h = join(f,h,type="full")
}
h = h[order(h$date),]
h = na.omit(h)
# save in INIA-DAIS
saveRDS(h, "C:/Users/Rafael Navas/INIA/dais - Documentos/02_TALA/01_datos/03_hidrologia/tala_at_margarita/post_processing_data/water_level_telemetric.RDS")
saveRDS(h, "C:/Users/Rafael Navas/Documents/tala_at_margarita/post_processing_data/water_level_telemetric.RDS")Última actualización - fecha: 01 julio 2020, hora: 07:57
Último registro recibido: 0.829 metros el 01/07/2020 00:00
A work by Rafael Navas